#!/usr/bin/perl

use warnings;
use strict;

open (SAMPLE, "sample.file") or die $!;

foreach (<SAMPLE>) {
    if ( /(.*):.*:.*:(.*):.*/ ) {
        my $name = $1;
        if ( $2 =~ /([0-9]{1,2})\/[0-9]{1,2}\/[0-9]{1,2}/ ) {
            if ( $1 == 6 ) {
                print $name, "\n";
            }
        }
    }
}

close SAMPLE;
